1 REM QUILT SQUARES VIC
2 GOTO15
3 POKE198,0:POKEV,231:FORD=1TO50:NEXT:POKEV,0:RETURN
4 POKEA,32:POKEA+1,32:POKEA+22,32:POKEA+23,32:P=1:RETURN
5 POKEA,160:POKEA+1,160:POKEA+22,160:POKEA+23,160:RETURN
6 POKEA,32:POKEA+1,233:POKEA+22,233:POKEA+23,160:RETURN
7 POKEA,160:POKEA+1,105:POKEA+22,105:POKEA+23,32:RETURN
8 POKEA,223:POKEA+1,32:POKEA+22,160:POKEA+23,223:RETURN
9 POKEA,95:POKEA+1,160:POKEA+22,32:POKEA+23,95:RETURN
10 A1=PEEK(A):A2=PEEK(A+1):A3=PEEK(A+22):A4=PEEK(A+23):RETURN
11 POKEA,A1:POKEA+1,A2:POKEA+22,A3:POKEA+23,A4:RETURN
12 POKEA,79:POKEA+1,80:POKEA+22,76:POKEA+23,122:RETURN
13 POKEA+M,P:POKEA+1+M,P:POKEA+22+M,P:POKEA+23+M,P:RETURN
14 FORI=8054TO8118:POKEI,32:NEXTI:RETURN
15 PRINT"[147]QUILT SQUARES"
16 DIMS(16),Q(16),R(16),QQ(3)
17 PRINT"USE F1 TO MOVE TO THE QUILT SQUARE DESIRED, THEN PRESS <RETURN>."
18 PRINT"FILL IN THE SAMPLE    SQUARES."
19 FORI=1TO16:READS(I),Q(I),R(I):NEXT
20 DATA7864,7703,79,7866,7705,160,7868,7707,233,7870,7751,105
21 DATA7908,7709,223,7910,7753,95,7912,7711,160,7914,7713,233
22 DATA7952,7757,105,7954,7715,223,7956,7759,95,7958,7717,160
23 DATA7996,7719,233,7998,7763,105,8000,7721,223,8002,7765,95
24 QQ(1)=6:QQ(2)=11:QQ(3)=16:POKE36878,15:V=36876:M=30720
25 A$="[207][208][207][208][207][208][207][208]":B$="[204][186][204][186][204][186][204][186]"
26 PRINT"ONE COLOR IS WHITE.   HOW MANY OTHER COLORS, 1, 2, OR 3?":GOSUB3
27 GETE$:IFE$=""THEN27
28 IFE$<"1"ORE$>"3"THEN27
29 N=VAL(E$)
30 FORI=1TON
31 PRINT"CHOOSE COLOR";I
32 PRINT" [144] [146]   [146]  [159] [146]  [156] [146]   [146]   [146]  [158] [146]"
33 PRINT" 1  2  3  4  5  6  7":GOSUB3
34 GETE$:IFE$=""THEN34
35 IFE$<"1"ORE$>"7"THEN34
36 C(I)=VAL(E$):PRINTTAB(3*C(I)-2)"^"
37 IFC(I)=1THENC(I)=0
38 NEXTI
39 PRINT"[147]"
40 FORI=1TO4:PRINTTAB(8)A$:PRINTTAB(8)B$:NEXTI
41 POKE7703,79:POKE7704,101:POKE7725,99:POKE7703+M,0:POKE7704+M,0:POKE7725+M,0
42 FORI=2TOQQ(N):POKEQ(I),R(I):NEXTI
43 FORI=2TO6:POKEQ(I)+M,C(1):NEXTI
44 FORI=7TO11:POKEQ(I)+M,C(2):NEXTI
45 FORI=12TO16:POKEQ(I)+M,C(3):NEXTI
46 FORT=1TO16:GOSUB3:POKES(T),63
47 FORI=1TOQQ(N):GOSUB3:P=PEEK(Q(I)+M):IFI=1THENP=1
48 POKEQ(I),32:POKEQ(I),R(I)
49 GETE$:IFE$=""THEN48
50 IFASC(E$)=13THEN53
51 IFE$<>"[133]"THEN48
52 NEXTI:GOTO47
53 A=S(T):ONI GOSUB4,5,6,7,8,9,5,6,7,8,9,5,6,7,8,9
54 GOSUB13:NEXTT
55 PRINT"PRESS F1--CHANGE":PRINTTAB(6)"F7--PRINT QUILT":GOSUB3
56 GETE$:IFE$="[136]"THEN74
57 IFE$<>"[133]"THEN56
58 GOSUB14
59 PRINT"[145][145]PRESS F7--NO CHANGE":PRINTTAB(6)"F1--CHANGE":GOSUB3
60 FORT=1TO16:A=S(T):GOSUB10:GOSUB3:P=PEEK(A+M):IFP=1THENP=0:GOSUB13
61 GOSUB12:GOSUB11
62 GETE$:IFE$="[136]"THENGOSUB11:GOTO73
63 IFE$<>"[133]"THEN61
64 GOSUB12
65 FORI=1TOQQ(N):GOSUB3:P=PEEK(Q(I)+M)
66 POKEQ(I),32:POKEQ(I),R(I)
67 GETE$:IFE$=""THEN66
68 IFASC(E$)=13THEN71
69 IFE$<>"[133]"THEN66
70 NEXTI:GOTO65
71 A=S(T):ONI GOSUB4,5,6,7,8,9,5,6,7,8,9,5,6,7,8,9
72 GOSUB13
73 NEXTT:GOSUB14:PRINT"[145][145][145][145][145]":GOTO55
74 FORT=1TO16:A=S(T):P=PEEK(A+M):GOSUB10
75 A=S(T)-184:GOSUB11:GOSUB13:A=S(T)-176:GOSUB11:GOSUB13
76 A=S(T)-8:GOSUB11:GOSUB13
77 NEXTT
78 FORT=1TO12:A=S(T):P=PEEK(A+M):GOSUB10
79 A=S(T)+168:GOSUB11:GOSUB13:A=S(T)+176:GOSUB11:GOSUB13
80 NEXTT
81 FORT=1TO16:A=S(T):P=PEEK(A+M):GOSUB10
82 IFT/4=INT(T/4)THEN86
83 A=S(T)-168:GOSUB11:GOSUB13:A=S(T)+8:GOSUB11:GOSUB13
84 A=S(T)+184:IFT>12THEN86
85 GOSUB11:GOSUB13
86 NEXTT
87 PRINT""
88 END